﻿ Partial Public Class App
    Inherits Application

    public Sub New()
        InitializeComponent()
    End Sub
    
    Private Sub Application_Startup(ByVal o As Object, ByVal e As StartupEventArgs) Handles Me.Startup

        Dim mainPage = New MainPage()

        Dim mediaSource As String = Me.GetStringInitParam("mediaSource")
        Dim title As String = Me.GetStringInitParam("title")
        Dim thumbSource As String = Me.GetStringInitParam("thumbSource")

        Dim autoLoad As Boolean = Me.GetBooleanInitParam("autoLoad")
        Dim autoPlay As Boolean = Me.GetBooleanInitParam("autoPlay")

        mainPage.LoadMedia(mediaSource, title, thumbSource, autoLoad, autoPlay)

        Me.RootVisual = mainPage

    End Sub
    
    Private Sub Application_Exit(ByVal o As Object, ByVal e As EventArgs) Handles Me.Exit

    End Sub
    
    Private Sub Application_UnhandledException(ByVal sender As object, ByVal e As ApplicationUnhandledExceptionEventArgs) Handles Me.UnhandledException

        ' If the app is running outside of the debugger then report the exception using
        ' the browser's exception mechanism. On IE this will display it a yellow alert 
        ' icon in the status bar and Firefox will display a script error.
        If Not System.Diagnostics.Debugger.IsAttached Then

            ' NOTE: This will allow the application to continue running after an exception has been thrown
            ' but not handled. 
            ' For production applications this error handling should be replaced with something that will 
            ' report the error to the website and stop the application.
            e.Handled = True
            Deployment.Current.Dispatcher.BeginInvoke(New Action(Of ApplicationUnhandledExceptionEventArgs)(AddressOf ReportErrorToDOM), e)
        End If
    End Sub

   Private Sub ReportErrorToDOM(ByVal e As ApplicationUnhandledExceptionEventArgs)

        Try
            Dim errorMsg As String = e.ExceptionObject.Message + e.ExceptionObject.StackTrace
            errorMsg = errorMsg.Replace(""""c, "'"c).Replace(ChrW(13) & ChrW(10), "\n")

            System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(""Unhandled Error in Silverlight Application " + errorMsg + """);")
        Catch
        
        End Try
    End Sub

    Private Function GetStringInitParam(ByVal paramName As String) As String

        If Me.Host.InitParams.ContainsKey(paramName) Then
            Return Me.Host.InitParams(paramName)
        Else
            Return String.Empty
        End If

    End Function

    Private Function GetBooleanInitParam(ByVal paramName As String) As Boolean

        Dim output As Boolean = False

        If Me.Host.InitParams.ContainsKey(paramName) Then

            If Boolean.TryParse(Me.Host.InitParams(paramName), output) Then
                Return output
            End If

        End If

        Return output

    End Function

End Class
